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IT. INTRODUCTION 


The Printer Package (PPKG) is a set of general-purpose 
routines for 1) converting internally-stored numbers or 
alphanumeric strings to output form suitable for printing, 
2) controlling the format, and 3) performing the actual 
printing. Many of the routines resemble functions available 
in SOS OUTRAN but are oriented, of course, to the require- 
ments of the Univac 490 and its on-line high-speed printer. 


Available in the package are routines to convert to 
output form the following types of information: decimal in- 
tegers, octal numbers, fixed-point numbers, floating-point 
numbers, and Fieldata strings. Also available are routines 
to blank out areas of the print line, to set the colum coun- 
ter to a desired column, to increment the column counter by 
any number, to establish the top and bottom margins of a 
printed page, to define a user-prepared print area and, most 
important, to print the line after skipping a number of lines 
or ejecting to the top of the next page. 


Each routine has an entry point labeled with its own 
name and assumes a particular calling sequence to provide 
it with the information it needs from the user. No storage 
areas are used outside of the Printer Package for communica- 
tion between routines or between the user and the package. 
All routines save and restore all registers. 


Printing is performed on a double-buffer interrupt sys- 
tem to minimize time wasted in waiting for completion of the 
actual print operation, The routines prepare an unpacked 
(one character per word) array corresponding to a print line; 
then, just prior to printing, this is compressed to a packed 
buffer as the printer expects it. 


II. Program Specifications 


General Programming Scheme 


The PPKG routines are designed with the general philosophy 
of treating a single unit record at a time, where the unit record 
in this case consists of a printed line. There are two stages 
which the programmer must specify for the production of every 
unit output record. 


1) Internal Processing Stage 


The internal binary information to be represented by the 
external printed line is processed, piece by piece, to forma 
continuous string of characters, one per computer word, occupy- 
ing a 128 word buffer within PPKG. ‘“Processed" here means 
either converted to octal, decimal, fixed-point or floating- 
point Fieldata form or else, simply moved without conversion 
if already in Fieldata form. 


2) Write-out Stage 


The information in the internal unpacked buffer is 
packed into one of the two print buffers and sent out in 
buffered mode to the line printer. 


Calling Sequence Conventions 


All routines within the package are called by the RJP in- 
struction followed by one or more words of parameter information, 
followed by an error return and, finally, the normal return. 
For the routines which convert internal binary quantities to 
one of the various output forms (integer, octal, fixed point, 
floating point) the first parameter word contains an address, 
and an index register designator. The actual quantity to be 
converted is taken from the given address plus the contents 
of the indicated index register when the conversion routine is 
called. The lower half of the second parameter word contains 
the column number in which the first character of the converted 
output is to appear. Other portions of the parameter words 
give the number of characters, separated into integer and 
fractional portions where appropriate, to be printed. 


Each subroutine description should be consulted for the 
specific calling sequence for that routine. 


Page Formatting 


Margins at the top and bottom of the page are established or 


changed by the PFORM subroutine. Page ejection or line spacing 


is controlled by the PSCRIB routine which also prints the accumu- 


lated line. 


Formatting within an individual line is controlled by the 
conversion routines’ parameter words designating the starting 
colum and the number of characters to be printed. The routine 
PCOLR may also be used to set the column counter to any desired 
position and the routine PCOLIN may be used to increment the 
columm counter by a given amount. 


The storage register PCOLUMN contains the current value of 
the column counter which may be a number from 1 to 128. This 
register is maintained by all routines that store characters 
into the print line buffer and is cleared by the routine that 
prints the line. 


User-prepared Line Image 


If the user has prepared a line image which he wishes to 
print as is or which he wishes to overlay with other data, he 
may use the routine PIMAGE to transfer his image area to the 
buffer area supplied by PPKG. His image area must contain un- 
packed Fieldata characters, right-justified, and should consist 
of 128 words. It should be noted that the user's image area is 
never modified by PPKG, as is the case with OUTRAN. All PPKG 
routines which place characters in the unpacked print buffer 
deal only with the buffer internal to PPKG. The user may obtain 
information about the internal buffers through use of the ex- 
ternal communication registers described below. 


External Communication 


Within PPKG, two registers contain information that may be 
of value to the user program concerning the location of the cur- 
rent print line data. UNPACKBUFF has in its lower half the ad- 
dress of the unpacked information; PACKBUFF has in its lower 
half the address of the currently available buffer (that is, the 
buffer into which the unpacked information will be packed) and 
in its upper half the address of the packed buffer currently 
being printed. Each of the buffers indicated is preceded by a 


single free word which may be used at the discretion of the user. 


A possible use of this free word is for a carriage control char- 
acter used on a tape prepared for off-line printing on the 1401. 


Other registers which may be of value to the user are: 


PCOLUMN - the current value of the column counter 
LINCNT - the current line number being printed 
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Initialization 


The PFORM routine, which establishes the top and bottom 
margins of the page, must be entered before the PSCRIB routine 
which prints the accumulated line. While not necessary if 
the package is loaded and executed directly from assembly, 
this is recommended as a safer practice. It insures that 
LINCNT, the line counter, will be set to TOPLINE, the first 
line of printing on the page; that PCOLUMN will be set to 
column 1; and that STATUS, the register set by the external 
interrupt routine, will be initialized so that PSCRIB may 
immediately print its first line. If PFORM is not performed 
initially, the top margin will have six blank lines and the 
bottom margin five blank lines. The page is assumed to be 
66 lines long. 


Routine Names 


The routines available to the user are identified below 
and described in detail in Section III: 


Name Function 


PINT Converts internal quantity to decimal in- 
teger format 


POCT Converts internal quantity to octal format 

PFIX Converts internal quantity to fixed-point 
Format 

PFLOAT Converts internal quantity to floating- 


point format 


PFD Moves Fieldata character string to print 
line buffer 


PBLANK Moves blanks to print line buffer 

PCOLR Resets column counter to given value 

PC OLIN Increments column counter by given amount 
PTMAGE Moves user-generated print image to internal 


PPKG buffer 
PFORM Establishes top and bottom margins of page 


PSCRIB Prints line after spacing or ejecting 
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Routines used strictly internally in the Printer Pack- 
age are identified below and further described in Section III: 


Name 
PSCRINT 


PENTRY 


PLAYUP 
PFRACSTOR 
PSAVE 
PRES TORE 
PERRORR 


BINDECINT 


BINOCTFLD 


BINDECFRA 


SUPZRO 
COFRND 


COFFIX 


COTFLT 


Function 
External interrupt routine 


Interprets calling sequence and resets 
column counter 


Unpacks and counts non-zero characters 
Stores fraction in print line buffer 
Saves all registers 

Restores all registers 

Prints an error message 


Converts binary to decimal integer 
Fieldata code 


Converts binary to octal Fieldata code 


Converts binary to decimal fraction 
Fieldata code 


Suppresses leading zeros 
Rounds off a number to BETA decimal places 


Converts binary to fixed-point Fieldata 
code 


Converts two-word floating-point to ex- 
ponential output form 
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PINT 


Function 


To convert the internal binary value indicated by the 
calling sequence to a decimal integer and store it in the 
proper column positions of a high-speed printer buffer. 


Calling Sequence 


RJP PINT 

U-TAG INDEX,ADDRESS 
U-TAG NUMCHAR, COLUMN 
Error return 

Normal return 


Input 
The value given in ADDRESS + (INDEX). 


Output 
NUMCHAR + 1 output characters starting in PBUF + COLUMN. 


Subroutines Used 


PENTRY, BINDECINT, SUPZRO, PLAYUP, PBLANK, PRESTORE, 
PERRORR. 


storage Areas Read 
PCOLUMN, CHARNO, SIGN, LAYUPSTOR. 


otorage Areas Written 


IOINTEGER, SIGN, LAYUPSTOR (by subroutines), INTEGER, 
PBUF, PCOLUMN. 


Method 


The PENTRY routine interprets the calling sequence and 
sets the column counter to the desired column. The value 
given is then converted to output form, zero suppressed and 
unpacked into a one-character-per-word array. The appro- 
priate number of blanks is determined by NUMCHAR minus the 
number of significant digits minus one for the sign posi- 
tion, and that number of blanks is stored in the buffer. 
Then the sign (minus or blank) is stored, followed by the 
integer itself. 


Error Conditions 


Type 1 - the maximum number of characters in the buf- 
fer is exceeded. 


Type 2 - the number of significant digits to be printed 
exceeds NUMCHAR. 


POCE 


Function 


To convert the internal binary value indicated by the 
calling sequence to an octal number and store it in the 
proper column positions of a high-speed printer buffer. 


Calling Sequence 


RJP POCT 

U-TAG INDEX ,ADDRESS 
U-TAG NUMCHAR,COLUMN 
Error return 

Normal return 


Input 
The value given in ADDRESS + (INDEX). 


Output 
NUMCHAR + 1 output characters starting in PBUF + COLUMN, 


Subroutines Used 


PENTRY, BINOCTFLD, PLAYUP, PRESTORE, PERRORR. 


otorage Areas Read 
PCOLUMN, LAYUPSTOR, 


Storage Areas Written 
IOINTEGER, LAYUPSTORE (by subroutines), PCOLUMN, PBUF. 


Method 


The PENTRY routine interprets the calling sequence and 
sets the column counter to the desired column. The value 
given is then converted to output form and unpacked into a 
one-digit-per word array. The lower NUMCHAR digits are then 
stored in the output buffer (if NUMCHAR = 0, it is taken as 
10). 


Error Conditions 


Type i - The maximum number of characters in the buffer 
is exceeded, 


PFIX 


Function 


To convert the internal binary value indicated by the 
calling sequence to a fixed-point number and store it in the 
proper column positions of a high-speed printer buffer. 


Calling Sequence 


RJP PFIX 

U-TAG INDEX,ADDRESS 

U-TAG BINARY-PT,COLUMN 

U-TAG NUMCHARINT,NUMCHARFRAC 
Error return 

Normal return 


Input 
The value given in ADDRESS + (INDEX). 


Output 

NUMCHARINT + 1, decimal pt., NUMCHARFRAC output characters 
starting in PBUF + COLUMN, 
subroutines Used 


PENTRY, COFFIX, PLAYUP, PBLANK, PFRACSTOR, PRESTORE, PERRORR. 


Storage Areas Read 
SIGN, LAYUPSTOR, PCOLUMN, CHARNO. 


storage Areas Written 
IOINTEGER, LAYUPSTOR (by subroutines), PBUF, PCOLUMN. 


Method 


The PENTRY routine interprets the calling sequence and 
sets the column counter to the desired column, The value is 
converted from a fixed-point number with the indicated binary 
point and unpacked into a one-digit-per-word array. The 
appropriate number of blanks is determined by NUMCHARINT 
minus the number of significant digits in the integer portion 
of the number, and that number of blanks is stored in the 
buffer. The sign (minus or blank) is then stored, followed 
by the integer portion, then a decimal point, and finally the 
fractional portion, 


Error Conditions 


Type 1 - the maximum number of characters in the buffer 
is exceded. 


Type 2 - the number of significant integer digits ex- 
ceeds NUMCHARINT. 


Aut) 


PFLOAT 


Function 


To convert the internal floating-point number indicated 
by the calling sequence to an exponential output form and 
store it in the proper column positions of a high-speed 
printer. 


Calling Sequence 


RgP PFLOAT 

U-TAG INDEX ,ADDRESS 
U-TAG NUMCHARFRAC , COLUMN 
Error return 

Normal return 


Input 
The value given in ADDRESS + (INDEX). 


Output 
A string of output characters consisting of a sign, an 
integer, a decimal point, NUMCHARFRAC decimal digits, a sign 


for the exponent, and two digits for the exponent beginning 
at PBUF + COLUMN. 


Subroutines Used 


PENTRY, COTFLT, PFRACSTOR, PRESTORE, PERRORR. 


Storage Areas Read 
SIGN, ITOEXPONENT. 


if 


Storage Areas Written 


SIGN, EXPSIGN, IOINTEGER, IOFRACTION, IOEXPONENT (by 
subroutines), BETA, PBUF, PCOLUMN. 


Method 


The PENTRY routine interprets the calling sequence and 
sets the column counter to the desired column. The value is 
converted from floating-point form to output form and stored 
one character at a time into the buffer. If the exponent is 
zero, blanks are stored in place of the sign and two expo- 
nent digits. 


Error Conditions 


Type 1 - the maximum number of characters in the buffer 
is exceeded. 


Type 4 - the floating-point number has an erroneous 
format. 
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PFD 


Function 


To store internal Fieldata code into the proper column 
positions of a high-speed printer buffer. 


Sequence 


RJP PFD 

U-TAG INDEX,ADDRESS 
U-TAG NUMCHAR,COLUMN 
Error return 

Normal return 


Input 


The packed string of characters starting at ADDRESS + 
(INDEX). 


Output 


An unpacked string of output characters starting in PBUF 
+ COLUMN. 


Subroutines Used 


PENTRY, PRESTORE. 


Storage Areas Read 


None, 


Storage Areas Written 
PBUF, PCOLUMN, 


a3 


Method 


The PENTRY routine interprets the calling sequence and 
sets the column counter to the desired column, Then the 
Fieldata words are unpacked into one character per word and 
stored in the buffer until NUMCHAR of them have been stored. 


Error Conditions 


Type 1 - the maximum number of characters in the buffer 
is exceeded, 
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PBLANK 


Function 


To store blanks in the proper column positions of the 
high-speed printer buffer. 


Calling Sequence 


RJP PBLANK 

U-TAG COLUMN ,NUMCOLS 
Error return 

Normal return 


Input 


The desired starting column and number of columns to be 
blanked given in the calling sequence, 


Output 


Blanks stored in PBUF + COLUMN through PBUF + COLUMN 
+ NUMCOLS. 


Subroutines Used 


PCOLR, PERRORR. 


Storage Areas Read 
PCOLUMN, 


storage Areas Written 
PCOLUMN, PBUF. 
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Method 


If NUMCOLS = 0, 128-PCOLUMN is substituted so that the 
rest of the line is blanked out. If COLUMN = 0, the current 
column counter is used as the desired starting column. If 
COLUMN # 0, the PCOLR subroutine is used to reset the column 
counter to that value. 


Error Conditions 


Type 1 - the maximum number of column positions in the 
buffer is exceeded. 
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PCOLR 


Function 


To reset the column counter to a given value. 


Calling Sequence 


RJP PCOLR 
U-TAG INDEX ,COLUMN 
Error return 
Normal return 


Input 
The value given in COLUMN + (INDEX). 


Output 
PCOLUMN., 


Subroutines Used 


PERRORR., 


Storage Areas Read 


None, 


Storage Areas Written 
PCOLUMN. 


ey 


Method 


The value COLUMN + (INDEX) is tested for not exceeding 
128 and, if not, stored in PCOLUMN. 


Error Conditions 


Type i - the maximum number of columns has been exceeded. 
PCOLUMN is set to O. 
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PCOLIN 


Function 


To increment the column counter and test for exceeding 
the maximum number of positions. 


Calling Sequence 


RJP PCOLIN 

U-TAG INDEX ,NUMCOLS 
Error return 

Normal return 


Input 
The value given in NUMCOLS + (INDEX). 


Output 
PCOLUMN, 


Subroutines Used 


PERRORR, 


otorage Areas Read 


None, 


Storage Areas Written 
PCOLUMN , 


dts, 


Method 


Add NUMCOLS + (INDEX) to PCOLUMN and test for not 
exceeding 128. 


Error Conditions 


Type 1 - the maximum number of columns has been exceeded. 
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PIMAGE 


Function 
To move the contents of an output buffer area contain- 


ing unpacked Fieldata characters to PBUF, the buffer area 
supplied by PPKG, 


Calling Sequence 


RJP PIMAGE 
U-TAG INDEX ,ADDRESS 
Error return 
Normal return 


Input 
The 128-word area beginning at ADDRESS + (INDEX). 


Output 
The 128-word area beginning at PBUF + 1. 


Subroutines Used 


None. 


storage Areas Read 


None, 


Storage Areas Written 
PBUF. 


ZL 


Method 


The entire 128-word array is transferred from the users 
area to PBUF. 


Error Conditions 


None. 
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PFORM 


Function 


To establish the top and bottom margin areas of the 
printer page and advance the paper to the top of the next 
page. Also serves to initialize printer functions, interrupt 
routines, etc. 


Calling Sequence 


RP PFORM 
U-TAG LINESTOP ,LINESBOTTOM 
Error return 
Normal return 


Input 


Margin information in the calling sequence, i.e., number 
of blank lines desired at top and bottom of page. 


Output 
TOPLINE, BOTLINE, LINCNT, BOTMARG, 


Subroutines Used 


None, 


Storage Areas Read 
STATUS. 


storage Areas Written 
TOPLINE, BOTLINE, LINCNT, BOTMARG, STATUS. 


eS 


Me thod 


TOPLINE = LINESTOP + 1 
BOTMARG = LINESBOTTOM 
BOTLINE = PAGESIZE (66) - BOTMARG 


LINCNT (after advancing to top of next page) = TOPLINE 
PAGESIZE is an assembly parameter which is set to 66, 
for normal printer paper. 


Error Conditions 


If STATUS > 1, a printer error is indicated and the com-~ 
puter is stopped. Pushing the HI-SPEED button on the console 
will cause the routine to reissue the offending print instruc- 
tion, This will continue until the printer error condition is 
remedied, at which time the print instruction will be properly 
executed and the routine will return via the normal exit. 


ou 


PSCRIB 


Funetion 


To print one line from the buffer after spacing or ad- 
vancing to the top of the next page. 


Calling Sequence 


RJP PSCRIB 
U-TAG PAGETOP, LINESKIP 
Error return 
Normal return 


Input 


PBUF, the information in the calling sequence. 


Output 


The printed line on the proper line number. 
Subroutines Used 


PSAVE, PSCRIBSS (internal to PSCRIB), PRESTORE, PSCRINT 
(external interrupt routine) 


storage Areas Read 
BOTLINE, LINCNT, BOTMARG, TOPLINE, PBUF, STATUS, PSCRIBD. 


Storage Areas Written 
LINCNT, PSCRIBD, PREGION, PCOLUMN 
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Method 


If PAGETOP # 0, an ejection to the top of the next page 
before printing is indicated. The value of BOTLINE - LINECNT 
- BOTMARG + TOPLINE is computed and tested to see if it ex- 
ceeds 63,,, the maximum number of lines the printer is able to 
skip. 


If so, the command to skip 63 lines without printing is 
given, after which 63 is subtracted from the previously com- 
puted value placed in the lines-to-skip portion of the print 
command word. The value of TOPLINE is stored in LINCNT since, 
after advancing and printing, the paper will be at the top 
line of printing on the next page. 


If page topping is not desired, the value of BOTLINE - 
LINCNT is tested against the number of lines desired to skip 
given in the calling sequence. If the number of lines ex- 
ceeds this value, page topping is automatically indicated and 
BOTMARG + TOPLINE must be added to must be added to space the 
paper past the inter-page margins. Otherwise the number of 
lines to skip is inserted directly into the print command word 
and LINCNT incremented by this amount. 


The actual printing process is a double-buffered opera- 
tion. The available packed buffer area which will begin at 
either PREGION or PREGION + 27,, 1s determined by looking in 
the buffer control word PSCRIBD. The information from PBUF 
is packed five characters to a word and stored in the avail- 
able buffer. Before the print command is issued, the register 
STATUS is tested to see if the external interrupt routine 
PSCRINT has been entered, signifying that the previous print 
command was completed, If STATUS = 1, the previous print 
command was successfully completed, so the new print command 
and buffer initiation is issued for the information just 
packed into the available buffer. Now the buffers are switched, 
STATUS is cleared and registers are restored before exit. 


Error Conditions 


If STATUS > 1, a printer error is indicated and the com- 
puter is stopped. Pushing the HI-SPEED button on the console 
will cause the routine to reissue the offending print instruc- 
tion. This will continue until the printer error condition is 
remedied, at which time the print instruction will be properly 
executed and the routine will return via the normal exit. 
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PENTRY 


Function 
To interpret the calling sequence to the routine which 


called PENTRY, save all registers and set the column counter 
to the desired column. 


Calling Sequence 


PANYTHING ENTRY 
RJP PENTRY 
Error return 
Normal return 


Input 


Calling sequence to calling routine. 


Output 
PCOLUMN, desired ADDRESS + (INDEX) in BO. 


Subroutines Used 


PSAVE, PCOLR. 


Storage Areas Read 


None. 


Storage Areas Written 
PCOLUMN. 


ad 


Method 


The A, Q, and Bi through B7 registers are saved by 
PSAVE for later restoration by PRESTORE. The entry point of 
PENTRY is used to determine the entry point of the calling 
routine, which in turn is used to obtain the desired address 
of the value to be converted for output. The lower half of 
the word following that is used to reset the column counter 
by use of PCOLR if it is not equal to zero. Just before the 
routine returns to the normal exit, B6 is loaded with the de- 
sired address. 


Error Conditions 


The error return from PCOLR causes an exit to the error 
return. 
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PLAYUP 


Function 


To unpack and store the Fieldata characters in the words 
indicated by the calling sequence in the area LAYUPSTOR. 


Calling Sequence 


RJP PLAYUP 
U-TAG PACKEDAREA,NUMWORDS 
Normal return 


Input 


The characters in PACKEDAREA through PACKEDAREA + 
NUMWORDS-1. 


Output 
LAYUPSTOR, CHARNO. 


Subroutines Used 


None. 


Storage Areas Read 


None. 


Storage Areas Written 
LAYUPSTOR, CHARNO. 
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Method 

Up to 130 eharaeters may be unpacked from’ the area des- 
ignated and stored one charaeter per word in LAYUPSTOR, with 
the final number of charaeters stored in CHARNO. Any whole 
words or individual characters which are blank (zero) will not 
be stored. 


Error Conditions 


None. 


30 


PFRACSTOR 


Function 


To store the fractional portion of a number in the high- 
speed printer buffer. 


Calling Sequence 


RJP PFRACSTOR 
Error return 
Normal return 


Input 
BETA, IOFRACTION. 


Output 
PBUF. 


Subroutines Used 


PERRORR , 


Storage Areas Read 
BETA, ITOFRACTION. 


Storage Areas Written 
PBUF, BETA. 


cil 


Method 


If BETA = 0, the routine exits immediately. Otherwise 
a decimal point is stored in PBUF followed by BETA digits 
starting from the high-order digits of IOFRACTION. 


Error Conditions 


Type 1 - The maximum number of characters in the buffer 
has been exceeded. 


Se 


PERRORR 


Function 


To print and type the error type and the location of the 
error. 


Calling Sequence 


ENT A W(ERRORWD) 
RJP PERROR 
Normal return 


where ERRORWD has the format: U-TAG ERRORTYPE, LOCATION 


Input 


Information in calling sequence. 


Output 


The message “ERROR TYPE n AT LOCATION mmmmm" on both the 
console printer and the high-speed printer. 


Subroutines Used 


PIMAGE, PSCRIB, PLAYUP. 


otorage Areas Read 


None. 


Storage Areas Written 
LAYUPSTOR. 
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Method 


The error type is converted to a two-digit Fieldata 
code and stored in the proper place in the error message, 
The location is likewise converted to output format and 
stored in the message. Through the use of PIMAGE, this 
message is put in the high-speed printer buffer and printed 
by PSCRIB, after which it is unpacked by PLAYUP and printed 
on the console printer. 


Error Conditions 


None, 
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COTFLT 


Function 


To convert the value indicated by the calling sequence 
from internal floating-point form to output exponential form. 


Calling Sequence 


RJP COTFLT 
U-TAG ADDRESS,O 
Error return 
Normal return 


Input 
Floating-point value in ADDRESS (2). 


Output 
ITOINTEGER + 1, IOFRACTION(2) , IOEXPONENT, EXPSIGN, SIGN. 


Subroutines Used 


FLTPT, BINDECINT, BINDECFRA, COFRND, SUPZRO. 


Storage Areas Read 
EXPONENT, FPFRACTION. 


Storage Areas Written 


INTEGER, FRACTION, EXPONENT, FPFRACTION, IOINTEGER(2) , 
IOFRACTION(2), IOEXPONENT, EXPSIGN, SIGN, SINTEMP. 
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Method 


The value indicated by the calling sequence is stored 
as a positive quantity in the common area EXPONENT and 
FPFRACTION along with temporary storage of the true sign. 
Separate paths are entered depending on the sign of the ex- 
ponent, but as the functions are similar only the positive 
exponent path will be described. 


The number is tested against the floating-point repre- 
sentation of 10° and repeatedly divided by it with corres- 
ponding adjustment of IOEXPONENT until it is less. Then it 
is tested against a table of floating-point representations 
of powers of ten and divided by the highest one which is less 
than it, thus making the number in terms of units only. Now 
the value can be shifted an amount equal to the exponent 
minus the base (40000) to separate the integer and fractional 
portions which are each converted separately to output format. 
The resultant I/O values are rounded to BETA decimal places 
and zero suppressed. The IJOEXPONENT is then converted to 
decimal for output. 


Error Conditions 


If the resultant value of IOEXPONENT is greater than 40, 
the routine exits to the error return. 
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COFFIX 


Function 
To convert the fixed-point value indicated by the call- 


ing sequence to output fixed point format with BETA decimal 
places printing. 


Calling Sequence 


RJP COFFIX 
U-TAG ADDRESS ,GAMMA 
Normal return 


Input 


Value in address given in calling sequence. 


Output 
ITOINTEGER(2), IOFRACTION(2), SIGN. 


Subroutines Used 


BINDECINT, BINDECFRA, COFRND, SUPZRO. 


Storage Areas Read 


Address given in calling sequence. 


Storage Areas Written 


SIGN, INTEGER, FRACTION, IOINTEGER(2), IOFRACTION (2) 
(by subroutines). 
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Method 


The value is made positive and its true sign temporarily 
stored. It is then separated into its integer and fractional 
portions by the binary point (GAMMA) given in the calling 
sequence. Each is separately converted to output form and 


the entire value rounded to BETA decimal places with leading 
zeros suppressed. 


Error Conditions 


None. 
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COFRND 


Function 


To round off the value in IOINTEGER and IOFRACTION to 
BETA decimal places. 


Calling Sequence 


RJP COFRND 
Normal return 


Input 
IOINTEGER (2), IOFRACTION (2), BETA. 


Output 
LOINTEGER (2) , ITOFRACTION (2). 


Subroutines Used 


None, 


storage Areas Read 
LOINTEGER (2) , LOFRACTION (2), BETA. 


Storage Areas Written 
LOINTEGER (2), LOFRACTION (2). 
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Method 


The BETA + ist digit is tested for 5 or greater. If not 
it is cleared and the fraction replaced as is; if so, the 
next higher order digits are tested for 9's to see if the car- 
ry will propagate upwards. This process continues from 
ITOFRACTION through to IJOINTEGER until a digit less than 9 is 
found at which point1 is added to it and the value clcared up 
and prepared for output with BETA digits, zero or greater in 
ITOFRACTION. 


Error Conditions 


None, 


U0 


SUPZRO 


Function 
To suppress leading zeros in the area defined by the 


calling sequence, converting them to blanks but leaving one 
zero if the entire value is zero. 


Calling Sequence 


RJP SUPZRO 
U-TAG AREA, No. of words 
Normal return 


Input 


Area given by calling sequence. 


Output 


Same varea: 


Subroutines Used 


None, 


Storage Areas Read 


Area given by calling sequence, 


otorage Areas Written 


Same area, 
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Method 


Test leading digits for zero, clearing each until a 
non-zero digit is found or the area is exhausted. If the 
latter condition holds, force in a single zero in the least 
Significant digit position of the area. 


Error Conditions 


None, 
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BINDECFRA 


Funetion 


To convert a value in FRACTION from internal binary 
form to fractional decimal form suitable for output. 


Calling Sequenee 


RJP BINDECFRA 
Normal return 


Input 
FRACTION, 


Output 
LOFRACTION (2), SIGN, 


Subroutines Used 


None, 


storage Areas Read 
FRACTION, 


otorage Areas Written 
IOFRACTION (2), SIGN, 
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Method 


Multiply the fraction by 24g, each time converting the 
high order 4 bits to output form and accumulating them in 
IOFRACTION. 


Error Conditions 


None, 


uy 


BINDECINT 


Function 
Te convert the value in INTEGER from binary to decimal 


in Fieldata output form. 


Calling Sequence 


RJP BINDECINT 
Normal return 


Input 
INTEGER , 


Output 
ITOINTEGER (2), SIGN. 


Subroutines Used 


None, 


Storage Areas Read 
INTEGER. 


storage Areas Written 
ITOINTEGER (2), SIGN, 


KS 


Method 


Repeatedly divide the quantity in INTEGER, having been 
forced positive, by 12g and store the remainder in the 
appropriate digit position of IOINTEGER or IOINTEGER + 1, 


Error Conditions 


None, 
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IV. FLOW CHARTS 


Flow charts for the subroutines described in the preced- 
ing section appear on the following pages. 
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Vo 
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